home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 024 (1987-08-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 024 (1987-08-15)(Ossowski, Stefan)(DE)(PD).adf / 4gewinnt.a < prev    next >
Text File  |  1987-03-03  |  469b  |  34 lines
  1.  
  2.  include 'df0:exec.s'
  3.  include 'df0:dos.s'
  4.  
  5.  cmp.l #$48e7ff3e,$50000
  6.  beq startprg
  7.  
  8.  move.l $4,a6
  9.  moveq #31,d0
  10.  move.l #dosname,a1
  11.  jsr _OpenLibrary(a6)
  12.  move.l d0,dosbase
  13.  move.l d0,a6
  14.  move.l #conname,d1
  15.  move.l #1005,d2
  16.  jsr _Open(a6)
  17.  move.l d0,file
  18.  move.l d0,d1
  19.  move.l #$4de00,d2
  20.  move.l #$5000,d3
  21.  jsr _Read(a6)
  22.  move.l file,d1
  23.  jsr _Close(a6)
  24.  
  25. startprg:
  26.  
  27.  jmp $50000
  28.  
  29. dosname: dc.b 'dos.library',0
  30. conname: dc.b '4gew.2',0,0
  31. dosbase: dc.l 0
  32. file:    dc.l 0
  33.  
  34.